home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / Internal_209.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  741 b   |  35 lines
  1. property myalpha, spriteNum
  2. global select, preloadlist
  3.  
  4. on beginSprite me
  5.   myalpha = 0
  6. end
  7.  
  8. on mouseUp me
  9.   myalpha = sprite(spriteNum).member.hilite
  10.   if myalpha = 1 then
  11.     c = preloadlist[select].count
  12.     if c > 0 then
  13.       repeat with i = 1 to c
  14.         preloadlist[select][i] = makealpha(preloadlist[select][i])
  15.       end repeat
  16.     end if
  17.   else
  18.     c = preloadlist[select].count
  19.     if c > 0 then
  20.       repeat with i = 1 to c
  21.         preloadlist[select][i].useAlpha = 0
  22.       end repeat
  23.     end if
  24.   end if
  25. end
  26.  
  27. on exitFrame me
  28.   if sprite(spriteNum).visible = 1 then
  29.     if preloadlist[select].count > 0 then
  30.       myalpha = preloadlist[select][1].useAlpha
  31.       sprite(spriteNum).member.hilite = myalpha
  32.     end if
  33.   end if
  34. end
  35.